home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Source_Cod2036531292006.psc / CODE BOOK / Form1.frm < prev    next >
Text File  |  2006-12-09  |  25KB  |  825 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    BackColor       =   &H0000C0C0&
  4.    Caption         =   "SOURCE CODES"
  5.    ClientHeight    =   11010
  6.    ClientLeft      =   60
  7.    ClientTop       =   450
  8.    ClientWidth     =   15240
  9.    Icon            =   "Form1.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   11010
  12.    ScaleWidth      =   15240
  13.    StartUpPosition =   3  'Windows Default
  14.    WindowState     =   2  'Maximized
  15.    Begin VB.ListBox List1 
  16.       Appearance      =   0  'Flat
  17.       Height          =   2565
  18.       Left            =   360
  19.       Sorted          =   -1  'True
  20.       TabIndex        =   24
  21.       Top             =   3840
  22.       Width           =   3495
  23.    End
  24.    Begin VB.ListBox List2 
  25.       Appearance      =   0  'Flat
  26.       Height          =   2760
  27.       Left            =   360
  28.       Sorted          =   -1  'True
  29.       TabIndex        =   23
  30.       Top             =   6720
  31.       Width           =   3495
  32.    End
  33.    Begin VB.TextBox Text1 
  34.       Appearance      =   0  'Flat
  35.       BeginProperty Font 
  36.          Name            =   "MS Sans Serif"
  37.          Size            =   12
  38.          Charset         =   0
  39.          Weight          =   400
  40.          Underline       =   0   'False
  41.          Italic          =   0   'False
  42.          Strikethrough   =   0   'False
  43.       EndProperty
  44.       Height          =   420
  45.       Left            =   7080
  46.       TabIndex        =   0
  47.       Top             =   1800
  48.       Width           =   3135
  49.    End
  50.    Begin VB.TextBox Text2 
  51.       Appearance      =   0  'Flat
  52.       BeginProperty Font 
  53.          Name            =   "MS Sans Serif"
  54.          Size            =   12
  55.          Charset         =   0
  56.          Weight          =   400
  57.          Underline       =   0   'False
  58.          Italic          =   0   'False
  59.          Strikethrough   =   0   'False
  60.       EndProperty
  61.       Height          =   420
  62.       Left            =   7080
  63.       TabIndex        =   1
  64.       Top             =   2280
  65.       Width           =   3135
  66.    End
  67.    Begin VB.TextBox Text3 
  68.       Appearance      =   0  'Flat
  69.       BeginProperty Font 
  70.          Name            =   "MS Sans Serif"
  71.          Size            =   12
  72.          Charset         =   0
  73.          Weight          =   400
  74.          Underline       =   0   'False
  75.          Italic          =   0   'False
  76.          Strikethrough   =   0   'False
  77.       EndProperty
  78.       Height          =   420
  79.       Left            =   7080
  80.       TabIndex        =   2
  81.       Top             =   2760
  82.       Width           =   3135
  83.    End
  84.    Begin VB.TextBox Text4 
  85.       Appearance      =   0  'Flat
  86.       BeginProperty Font 
  87.          Name            =   "MS Sans Serif"
  88.          Size            =   12
  89.          Charset         =   0
  90.          Weight          =   400
  91.          Underline       =   0   'False
  92.          Italic          =   0   'False
  93.          Strikethrough   =   0   'False
  94.       EndProperty
  95.       Height          =   420
  96.       Left            =   11640
  97.       TabIndex        =   3
  98.       Top             =   1800
  99.       Width           =   3135
  100.    End
  101.    Begin VB.TextBox Text5 
  102.       Appearance      =   0  'Flat
  103.       BeginProperty Font 
  104.          Name            =   "MS Sans Serif"
  105.          Size            =   12
  106.          Charset         =   0
  107.          Weight          =   400
  108.          Underline       =   0   'False
  109.          Italic          =   0   'False
  110.          Strikethrough   =   0   'False
  111.       EndProperty
  112.       Height          =   420
  113.       Left            =   11640
  114.       TabIndex        =   4
  115.       Top             =   2280
  116.       Width           =   3135
  117.    End
  118.    Begin VB.TextBox Text6 
  119.       Appearance      =   0  'Flat
  120.       BeginProperty Font 
  121.          Name            =   "MS Sans Serif"
  122.          Size            =   12
  123.          Charset         =   0
  124.          Weight          =   400
  125.          Underline       =   0   'False
  126.          Italic          =   0   'False
  127.          Strikethrough   =   0   'False
  128.       EndProperty
  129.       Height          =   420
  130.       Left            =   11640
  131.       TabIndex        =   5
  132.       Top             =   2760
  133.       Width           =   3135
  134.    End
  135.    Begin VB.TextBox Text8 
  136.       Height          =   285
  137.       Left            =   7080
  138.       TabIndex        =   14
  139.       Top             =   960
  140.       Width           =   3135
  141.    End
  142.    Begin VB.ComboBox Combo1 
  143.       Height          =   315
  144.       ItemData        =   "Form1.frx":0CCA
  145.       Left            =   11640
  146.       List            =   "Form1.frx":0CD7
  147.       TabIndex        =   13
  148.       Top             =   960
  149.       Width           =   3135
  150.    End
  151.    Begin VB.CommandButton Command6 
  152.       BackColor       =   &H00FFFF00&
  153.       Caption         =   "Edit"
  154.       BeginProperty Font 
  155.          Name            =   "MS Sans Serif"
  156.          Size            =   8.25
  157.          Charset         =   0
  158.          Weight          =   700
  159.          Underline       =   0   'False
  160.          Italic          =   0   'False
  161.          Strikethrough   =   0   'False
  162.       EndProperty
  163.       Height          =   375
  164.       Left            =   7680
  165.       Style           =   1  'Graphical
  166.       TabIndex        =   12
  167.       Top             =   10080
  168.       Width           =   1215
  169.    End
  170.    Begin VB.TextBox Text7 
  171.       Appearance      =   0  'Flat
  172.       Height          =   5655
  173.       Left            =   4440
  174.       MultiLine       =   -1  'True
  175.       ScrollBars      =   3  'Both
  176.       TabIndex        =   6
  177.       Top             =   3840
  178.       Width           =   10335
  179.    End
  180.    Begin VB.CommandButton Command5 
  181.       BackColor       =   &H00FFFF00&
  182.       Caption         =   "Blank"
  183.       BeginProperty Font 
  184.          Name            =   "MS Sans Serif"
  185.          Size            =   8.25
  186.          Charset         =   0
  187.          Weight          =   700
  188.          Underline       =   0   'False
  189.          Italic          =   0   'False
  190.          Strikethrough   =   0   'False
  191.       EndProperty
  192.       Height          =   375
  193.       Left            =   6360
  194.       Style           =   1  'Graphical
  195.       TabIndex        =   11
  196.       Top             =   10080
  197.       Width           =   1215
  198.    End
  199.    Begin VB.CommandButton Command4 
  200.       BackColor       =   &H00FFFF00&
  201.       Caption         =   "Exit"
  202.       BeginProperty Font 
  203.          Name            =   "MS Sans Serif"
  204.          Size            =   8.25
  205.          Charset         =   0
  206.          Weight          =   700
  207.          Underline       =   0   'False
  208.          Italic          =   0   'False
  209.          Strikethrough   =   0   'False
  210.       EndProperty
  211.       Height          =   375
  212.       Left            =   13440
  213.       Style           =   1  'Graphical
  214.       TabIndex        =   10
  215.       Top             =   10080
  216.       Width           =   1335
  217.    End
  218.    Begin VB.CommandButton Command3 
  219.       BackColor       =   &H00FFFF00&
  220.       Caption         =   "Restore Deleted"
  221.       Enabled         =   0   'False
  222.       BeginProperty Font 
  223.          Name            =   "MS Sans Serif"
  224.          Size            =   8.25
  225.          Charset         =   0
  226.          Weight          =   700
  227.          Underline       =   0   'False
  228.          Italic          =   0   'False
  229.          Strikethrough   =   0   'False
  230.       EndProperty
  231.       Height          =   375
  232.       Left            =   11640
  233.       Style           =   1  'Graphical
  234.       TabIndex        =   9
  235.       Top             =   10080
  236.       Width           =   1695
  237.    End
  238.    Begin VB.CommandButton Command2 
  239.       BackColor       =   &H00FFFF00&
  240.       Caption         =   "Delete"
  241.       BeginProperty Font 
  242.          Name            =   "MS Sans Serif"
  243.          Size            =   8.25
  244.          Charset         =   0
  245.          Weight          =   700
  246.          Underline       =   0   'False
  247.          Italic          =   0   'False
  248.          Strikethrough   =   0   'False
  249.       EndProperty
  250.       Height          =   375
  251.       Left            =   10320
  252.       Style           =   1  'Graphical
  253.       TabIndex        =   8
  254.       Top             =   10080
  255.       Width           =   1215
  256.    End
  257.    Begin VB.CommandButton Command1 
  258.       BackColor       =   &H00FFFF00&
  259.       Caption         =   "Save"
  260.       BeginProperty Font 
  261.          Name            =   "MS Sans Serif"
  262.          Size            =   8.25
  263.          Charset         =   0
  264.          Weight          =   700
  265.          Underline       =   0   'False
  266.          Italic          =   0   'False
  267.          Strikethrough   =   0   'False
  268.       EndProperty
  269.       Height          =   375
  270.       Left            =   9000
  271.       Style           =   1  'Graphical
  272.       TabIndex        =   7
  273.       Top             =   10080
  274.       Width           =   1215
  275.    End
  276.    Begin VB.Shape Shape2 
  277.       BorderColor     =   &H00FF0000&
  278.       FillColor       =   &H0000C000&
  279.       FillStyle       =   0  'Solid
  280.       Height          =   855
  281.       Index           =   4
  282.       Left            =   6120
  283.       Top             =   9840
  284.       Width           =   8895
  285.    End
  286.    Begin VB.Label Label1 
  287.       BackStyle       =   0  'Transparent
  288.       Caption         =   "Source Codes"
  289.       BeginProperty Font 
  290.          Name            =   "MS Sans Serif"
  291.          Size            =   8.25
  292.          Charset         =   0
  293.          Weight          =   700
  294.          Underline       =   0   'False
  295.          Italic          =   0   'False
  296.          Strikethrough   =   0   'False
  297.       EndProperty
  298.       Height          =   375
  299.       Index           =   10
  300.       Left            =   4440
  301.       TabIndex        =   27
  302.       Top             =   3600
  303.       Width           =   1935
  304.    End
  305.    Begin VB.Shape Shape2 
  306.       BorderColor     =   &H00FF0000&
  307.       FillColor       =   &H0000C000&
  308.       FillStyle       =   0  'Solid
  309.       Height          =   6255
  310.       Index           =   3
  311.       Left            =   4200
  312.       Top             =   3480
  313.       Width           =   10815
  314.    End
  315.    Begin VB.Label Label1 
  316.       BackStyle       =   0  'Transparent
  317.       Caption         =   "All Codes"
  318.       BeginProperty Font 
  319.          Name            =   "MS Sans Serif"
  320.          Size            =   8.25
  321.          Charset         =   0
  322.          Weight          =   700
  323.          Underline       =   0   'False
  324.          Italic          =   0   'False
  325.          Strikethrough   =   0   'False
  326.       EndProperty
  327.       Height          =   375
  328.       Index           =   6
  329.       Left            =   360
  330.       TabIndex        =   26
  331.       Top             =   3600
  332.       Width           =   1935
  333.    End
  334.    Begin VB.Label Label1 
  335.       BackStyle       =   0  'Transparent
  336.       Caption         =   "Search Founded"
  337.       BeginProperty Font 
  338.          Name            =   "MS Sans Serif"
  339.          Size            =   8.25
  340.          Charset         =   0
  341.          Weight          =   700
  342.          Underline       =   0   'False
  343.          Italic          =   0   'False
  344.          Strikethrough   =   0   'False
  345.       EndProperty
  346.       Height          =   375
  347.       Index           =   7
  348.       Left            =   360
  349.       TabIndex        =   25
  350.       Top             =   6480
  351.       Width           =   1935
  352.    End
  353.    Begin VB.Shape Shape2 
  354.       BorderColor     =   &H00FF0000&
  355.       FillColor       =   &H0000C000&
  356.       FillStyle       =   0  'Solid
  357.       Height          =   6255
  358.       Index           =   2
  359.       Left            =   120
  360.       Top             =   3480
  361.       Width           =   3975
  362.    End
  363.    Begin VB.Label Label1 
  364.       BackStyle       =   0  'Transparent
  365.       Caption         =   "Subject"
  366.       BeginProperty Font 
  367.          Name            =   "MS Sans Serif"
  368.          Size            =   8.25
  369.          Charset         =   0
  370.          Weight          =   700
  371.          Underline       =   0   'False
  372.          Italic          =   0   'False
  373.          Strikethrough   =   0   'False
  374.       EndProperty
  375.       Height          =   375
  376.       Index           =   0
  377.       Left            =   5880
  378.       TabIndex        =   22
  379.       Top             =   1800
  380.       Width           =   1935
  381.    End
  382.    Begin VB.Label Label1 
  383.       BackStyle       =   0  'Transparent
  384.       Caption         =   "Function"
  385.       BeginProperty Font 
  386.          Name            =   "MS Sans Serif"
  387.          Size            =   8.25
  388.          Charset         =   0
  389.          Weight          =   700
  390.          Underline       =   0   'False
  391.          Italic          =   0   'False
  392.          Strikethrough   =   0   'False
  393.       EndProperty
  394.       Height          =   375
  395.       Index           =   1
  396.       Left            =   5880
  397.       TabIndex        =   21
  398.       Top             =   2280
  399.       Width           =   1935
  400.    End
  401.    Begin VB.Label Label1 
  402.       BackStyle       =   0  'Transparent
  403.       Caption         =   "Type of Code"
  404.       BeginProperty Font 
  405.          Name            =   "MS Sans Serif"
  406.          Size            =   8.25
  407.          Charset         =   0
  408.          Weight          =   700
  409.          Underline       =   0   'False
  410.          Italic          =   0   'False
  411.          Strikethrough   =   0   'False
  412.       EndProperty
  413.       Height          =   375
  414.       Index           =   2
  415.       Left            =   5880
  416.       TabIndex        =   20
  417.       Top             =   2760
  418.       Width           =   1935
  419.    End
  420.    Begin VB.Label Label1 
  421.       BackStyle       =   0  'Transparent
  422.       Caption         =   "Coding By"
  423.       BeginProperty Font 
  424.          Name            =   "MS Sans Serif"
  425.          Size            =   8.25
  426.          Charset         =   0
  427.          Weight          =   700
  428.          Underline       =   0   'False
  429.          Italic          =   0   'False
  430.          Strikethrough   =   0   'False
  431.       EndProperty
  432.       Height          =   375
  433.       Index           =   3
  434.       Left            =   10440
  435.       TabIndex        =   19
  436.       Top             =   1800
  437.       Width           =   1935
  438.    End
  439.    Begin VB.Label Label1 
  440.       BackStyle       =   0  'Transparent
  441.       Caption         =   "Side Effects"
  442.       BeginProperty Font 
  443.          Name            =   "MS Sans Serif"
  444.          Size            =   8.25
  445.          Charset         =   0
  446.          Weight          =   700
  447.          Underline       =   0   'False
  448.          Italic          =   0   'False
  449.          Strikethrough   =   0   'False
  450.       EndProperty
  451.       Height          =   375
  452.       Index           =   4
  453.       Left            =   10440
  454.       TabIndex        =   18
  455.       Top             =   2280
  456.       Width           =   1935
  457.    End
  458.    Begin VB.Label Label1 
  459.       BackStyle       =   0  'Transparent
  460.       Caption         =   "Date of Writing Code"
  461.       BeginProperty Font 
  462.          Name            =   "MS Sans Serif"
  463.          Size            =   8.25
  464.          Charset         =   0
  465.          Weight          =   700
  466.          Underline       =   0   'False
  467.          Italic          =   0   'False
  468.          Strikethrough   =   0   'False
  469.       EndProperty
  470.       Height          =   615
  471.       Index           =   5
  472.       Left            =   10440
  473.       TabIndex        =   17
  474.       Top             =   2760
  475.       Width           =   1215
  476.    End
  477.    Begin VB.Shape Shape2 
  478.       BorderColor     =   &H00FF0000&
  479.       FillColor       =   &H0000C000&
  480.       FillStyle       =   0  'Solid
  481.       Height          =   1815
  482.       Index           =   1
  483.       Left            =   5640
  484.       Top             =   1560
  485.       Width           =   9375
  486.    End
  487.    Begin VB.Label Label1 
  488.       BackStyle       =   0  'Transparent
  489.       Caption         =   "Search by"
  490.       BeginProperty Font 
  491.          Name            =   "MS Sans Serif"
  492.          Size            =   8.25
  493.          Charset         =   0
  494.          Weight          =   700
  495.          Underline       =   0   'False
  496.          Italic          =   0   'False
  497.          Strikethrough   =   0   'False
  498.       EndProperty
  499.       Height          =   255
  500.       Index           =   8
  501.       Left            =   10440
  502.       TabIndex        =   16
  503.       Top             =   960
  504.       Width           =   975
  505.    End
  506.    Begin VB.Label Label1 
  507.       BackStyle       =   0  'Transparent
  508.       Caption         =   "Search Word"
  509.       BeginProperty Font 
  510.          Name            =   "MS Sans Serif"
  511.          Size            =   8.25
  512.          Charset         =   0
  513.          Weight          =   700
  514.          Underline       =   0   'False
  515.          Italic          =   0   'False
  516.          Strikethrough   =   0   'False
  517.       EndProperty
  518.       Height          =   375
  519.       Index           =   9
  520.       Left            =   5880
  521.       TabIndex        =   15
  522.       Top             =   960
  523.       Width           =   1935
  524.    End
  525.    Begin VB.Shape Shape2 
  526.       BorderColor     =   &H00FF0000&
  527.       FillColor       =   &H0000C000&
  528.       FillStyle       =   0  'Solid
  529.       Height          =   735
  530.       Index           =   0
  531.       Left            =   5640
  532.       Top             =   720
  533.       Width           =   9375
  534.    End
  535.    Begin VB.Image Image1 
  536.       Height          =   3645
  537.       Left            =   8040
  538.       Picture         =   "Form1.frx":0CFC
  539.       Top             =   10920
  540.       Visible         =   0   'False
  541.       Width           =   6000
  542.    End
  543. End
  544. Attribute VB_Name = "Form1"
  545. Attribute VB_GlobalNameSpace = False
  546. Attribute VB_Creatable = False
  547. Attribute VB_PredeclaredId = True
  548. Attribute VB_Exposed = False
  549. 'developer: Shyam Singh Chandel < shyamschandel@rediffmail.com >
  550.  
  551. Private Sub Command1_Click()
  552. On Error Resume Next
  553. If Text1.Text = "" Then
  554. MsgBox "Enter Subject Please" & Chr(13) & "Thanks" & Chr(13) & "SSC"
  555. Text1.SetFocus
  556. Exit Sub
  557. End If
  558.  
  559. If Text2.Text = "" Then
  560. MsgBox "Enter Function Please" & Chr(13) & "Thanks" & Chr(13) & "SSC"
  561. Text2.SetFocus
  562. Exit Sub
  563. End If
  564.  
  565. If Text3.Text = "" Then
  566. MsgBox "Enter Type of Code Please" & Chr(13) & "Thanks" & Chr(13) & "SSC"
  567. Text3.SetFocus
  568. Exit Sub
  569. End If
  570.  
  571. If Text4.Text = "" Then
  572. MsgBox "Enter Programer Name Please" & Chr(13) & "Thanks" & Chr(13) & "SSC"
  573. Text4.SetFocus
  574. Exit Sub
  575. End If
  576.  
  577. If Text5.Text = "" Then
  578. MsgBox "Enter Side Effects Please" & Chr(13) & "Thanks" & Chr(13) & "SSC"
  579. Text5.SetFocus
  580. Exit Sub
  581. End If
  582.  
  583. If Text6.Text = "" Then
  584. MsgBox "Enter Date of Writing Code Please" & Chr(13) & "Thanks" & Chr(13) & "SSC"
  585. Text6.SetFocus
  586. Exit Sub
  587. End If
  588.  
  589. If Text7.Text = "" Then
  590. MsgBox "Enter Main Code Please" & Chr(13) & "Thanks" & Chr(13) & "SSC"
  591. Text7.SetFocus
  592. Exit Sub
  593. End If
  594.  
  595. SQL = "SELECT * FROM CODEVIEW"
  596. Set RS = New ADODB.Recordset
  597.  RS.Open SQL, CN, adOpenStatic, adLockOptimistic
  598.   RS.AddNew
  599.     RS!SUBJECT = Text1.Text
  600.     RS!Function = Text2.Text
  601.     RS!TypeOFCode = Text3.Text
  602.     RS!CodingBy = Text4.Text
  603.     RS!SideEffects = Text5.Text
  604.     RS!DateofWriting = Text6.Text
  605.     RS!code = Text7.Text
  606.   RS.Update
  607.   MsgBox "Record has been saved"
  608.   Command5_Click
  609.    RS.Close
  610.    List1.Clear
  611.    load
  612. End Sub
  613.  
  614. Private Sub Command2_Click()
  615. On Error Resume Next
  616. SQL = "SELECT * FROM CODEVIEW where Subject='" & List1.Text & "'"
  617. Set RS = New ADODB.Recordset
  618. RS.Open SQL, CN, adOpenStatic, adLockOptimistic
  619.  Backup
  620. RS.Delete
  621. MsgBox "Record has been deleted"
  622. Command5_Click
  623. RS.Close
  624. List1.Clear
  625. load
  626. End Sub
  627.  
  628. Private Sub Command3_Click()
  629. On Error Resume Next
  630. SQL = "SELECT * FROM CODEVIEW where Subject='" & List1.Text & "'"
  631. Set RS = New ADODB.Recordset
  632. RS.Open SQL, CN, adOpenStatic, adLockOptimistic
  633. RestoreBackup
  634. If Text1.Text = "" Then
  635. MsgBox "NO RECORD FOR RESTORE"
  636. Exit Sub
  637. End If
  638. RS.AddNew
  639.     RS!SUBJECT = Text1.Text
  640.     RS!Function = Text2.Text
  641.     RS!TypeOFCode = Text3.Text
  642.     RS!CodingBy = Text4.Text
  643.     RS!SideEffects = Text5.Text
  644.     RS!DateofWriting = Text6.Text
  645.   RS.Update
  646.   MsgBox "Record has been Restored"
  647.   Command5_Click
  648.   RS.Close
  649.   List1.Clear
  650.   load
  651.   DeleteBackup
  652. End Sub
  653.  
  654. Private Sub Command4_Click()
  655. End
  656. End Sub
  657.  
  658. Private Sub Command5_Click()
  659. BlankFields
  660. End Sub
  661.  
  662. Private Sub Command6_Click()
  663. On Error Resume Next
  664. SQL = "SELECT * FROM CODEVIEW where Subject='" & Text1.Text & "'"
  665. Set RS = New ADODB.Recordset
  666. RS.Open SQL, CN, adOpenStatic, adLockOptimistic
  667. If Text1.Text = "" Then
  668. MsgBox "NO RECORD FOR EDITING"
  669. Exit Sub
  670. End If
  671. currentMode = EditMode
  672.     RS!Function = Text2.Text
  673.     RS!TypeOFCode = Text3.Text
  674.     RS!CodingBy = Text4.Text
  675.     RS!SideEffects = Text5.Text
  676.     RS!DateofWriting = Text6.Text
  677.     RS!code = Text7.Text
  678. RS.Update
  679. RS.Close
  680. MsgBox "Record is edited"
  681.  
  682. End Sub
  683.  
  684. Private Sub Form_Load()
  685. Me.Picture = Image1.Picture
  686. connectDB
  687. load
  688. Combo1.ListIndex = 0
  689. End Sub
  690. Private Sub load()
  691. SQL = "SELECT * FROM CODEVIEW"
  692. Set RS = New ADODB.Recordset
  693.  RS.Open SQL, CN, adOpenStatic, adLockOptimistic
  694.    Do While Not RS.EOF
  695.       List1.AddItem RS!SUBJECT
  696.     RS.MoveNext
  697.     Loop
  698.   RS.Close
  699. End Sub
  700.  
  701. Private Sub List1_Click()
  702. SQL = "SELECT * FROM CODEVIEW where Subject='" & List1.Text & "'"
  703. Set RS = New ADODB.Recordset
  704.  RS.Open SQL, CN, adOpenStatic, adLockOptimistic
  705.     AddFields
  706.  RS.Close
  707. End Sub
  708. Private Sub DeleteBackup()
  709. Call SaveSetting("Restore", "Restore Data", "Subject", "")
  710. Call SaveSetting("Restore", "Restore Data", "Function", "")
  711. Call SaveSetting("Restore", "Restore Data", "TypeOFCode", "")
  712. Call SaveSetting("Restore", "Restore Data", "CodingBy", "")
  713. Call SaveSetting("Restore", "Restore Data", "SideEffects", "")
  714. Call SaveSetting("Restore", "Restore Data", "DateofWriting", "")
  715. Call SaveSetting("Restore", "Restore Data", "CODE", "")
  716. End Sub
  717. Sub Backup()
  718. Call SaveSetting("Restore", "Restore Data", "Subject", Text1.Text)
  719. Call SaveSetting("Restore", "Restore Data", "Function", Text2.Text)
  720. Call SaveSetting("Restore", "Restore Data", "TypeOFCode", Text3.Text)
  721. Call SaveSetting("Restore", "Restore Data", "CodingBy", Text4.Text)
  722. Call SaveSetting("Restore", "Restore Data", "SideEffects", Text5.Text)
  723. Call SaveSetting("Restore", "Restore Data", "DateofWriting", Text6.Text)
  724. Call SaveSetting("Restore", "Restore Data", "CODE", Text7.Text)
  725.  
  726. End Sub
  727. Sub RestoreBackup()
  728. Text1.Text = GetSetting("Restore", "Restore Data", "Subject")
  729. Text2.Text = GetSetting("Restore", "Restore Data", "Function")
  730. Text3.Text = GetSetting("Restore", "Restore Data", "TypeOFCode")
  731. Text4.Text = GetSetting("Restore", "Restore Data", "CodingBy")
  732. Text5.Text = GetSetting("Restore", "Restore Data", "SideEffects")
  733. Text6.Text = GetSetting("Restore", "Restore Data", "DateofWriting")
  734. Text7.Text = GetSetting("Restore", "Restore Data", "CODE")
  735.  
  736. End Sub
  737. Sub AddFields()
  738. On Error Resume Next
  739.     Text1 = RS!SUBJECT
  740.     Text2 = RS!Function
  741.     Text3 = RS!TypeOFCode
  742.     Text4 = RS!CodingBy
  743.     Text5 = RS!SideEffects
  744.     Text6 = RS!DateofWriting
  745.     Text7 = RS!code
  746. End Sub
  747. Sub BlankFields()
  748.   Text1 = ""
  749.   Text2 = ""
  750.   Text3 = ""
  751.   Text4 = ""
  752.   Text5 = ""
  753.   Text6 = ""
  754.   Text7 = ""
  755.   Text1.SetFocus
  756. End Sub
  757.  
  758. Private Sub List2_Click()
  759. SQL = "SELECT * FROM CODEVIEW where Subject='" & List2.Text & "'"
  760. Set RS = New ADODB.Recordset
  761.  RS.Open SQL, CN, adOpenStatic, adLockOptimistic
  762.     AddFields
  763.  RS.Close
  764. End Sub
  765.  
  766. Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
  767. If KeyCode = 13 Then
  768. Text2.SetFocus
  769. End If
  770. End Sub
  771.  
  772. Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
  773. If KeyCode = 13 Then
  774. Text3.SetFocus
  775. End If
  776. End Sub
  777. Private Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer)
  778. If KeyCode = 13 Then
  779. Text4.SetFocus
  780. End If
  781. End Sub
  782. Private Sub Text4_KeyDown(KeyCode As Integer, Shift As Integer)
  783. If KeyCode = 13 Then
  784. Text5.SetFocus
  785. End If
  786. End Sub
  787. Private Sub Text5_KeyDown(KeyCode As Integer, Shift As Integer)
  788. If KeyCode = 13 Then
  789. Text6.SetFocus
  790. End If
  791. End Sub
  792. Private Sub Text6_KeyDown(KeyCode As Integer, Shift As Integer)
  793. If KeyCode = 13 Then
  794. Text7.SetFocus
  795. End If
  796. End Sub
  797. Private Sub Text7_KeyDown(KeyCode As Integer, Shift As Integer)
  798. If KeyCode = 13 Then
  799. 'Command1_Click
  800. End If
  801. End Sub
  802.  
  803. Private Sub Text8_KeyDown(KeyCode As Integer, Shift As Integer)
  804. If KeyCode = 13 Then
  805. On Error Resume Next
  806. If Combo1.Text = "Subject" Then
  807. SQL = "SELECT * FROM [" & "CODEVIEW" & "]  where [" & "SUBJECT" & "]" & "LIKE '%" & Text8.Text & "%'"
  808. ElseIf Combo1.Text = "Function" Then
  809. SQL = "SELECT * FROM [" & "CODEVIEW" & "]  where [" & "FUNCTION" & "]" & "LIKE '%" & Text8.Text & "%'"
  810. ElseIf Combo1.Text = "Type of Code" Then
  811. SQL = "SELECT * FROM [" & "CODEVIEW" & "]  where [" & "TypeOFCode" & "]" & "LIKE '%" & Text8.Text & "%'"
  812. End If
  813. Set RS = New ADODB.Recordset
  814.  RS.Open SQL, CN, adOpenStatic, adLockOptimistic
  815.     'AddFields
  816.     Do While Not RS.EOF
  817.         List2.AddItem RS!SUBJECT
  818.     RS.MoveNext
  819.     Loop
  820.     
  821.  RS.Close
  822.  End If
  823.  
  824. End Sub
  825.